home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Documentation / WW3DKit / A_IntroWW3DKitExampleFiles / myCylinder.wwModel / model.eve
Encoding:
Text File  |  1995-03-22  |  230 b   |  13 lines
  1. set roll 45
  2. set thetaMax 360
  3. set radius 1
  4. set zMin -1
  5. set zMax 2
  6.  
  7. startShape dynamicExample
  8.     EveCmd {Rotate $roll 1 0 0}
  9.     Disk $zMin $radius $thetaMax
  10.     Cylinder $radius $zMin $zMax $thetaMax
  11.     Disk $zMax $radius $thetaMax
  12. endShape
  13.